home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / gatech.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-07-08  |  4.6 KB  |  157 lines
  1. 10    'GEORGIA TECH - RAMBLIN' RECK
  2. 20  CLS
  3. 30  LOCATE 10, 32 : PRINT "GEORGIA TECH"
  4. 40  LOCATE 14, 31 : PRINT "RAMBLIN' WRECK"
  5. 50  B1$ = CHR$(220)
  6. 60  B2$ = B1$ + B1$
  7. 70  B3$ = B1$ + B2$
  8. 80  B4$ = B2$ + B2$
  9. 90  B5$ = B4$ + B1$
  10. 100  B6$ = B3$ + B3$
  11. 110  KEY OFF
  12. 120  S1$ = " "
  13. 130  S2$ = "  "
  14. 140  S3$ = "   "
  15. 150  S4$ = "    "
  16. 160  S5$ = "     "
  17. 170  S6$ = "      "
  18. 180  BAR$ = STRING$(79, B1$)
  19. 210  GOSUB 760
  20. 220   PLAY "T200O3mb"
  21. 230  PLAY "E4 D8   C4  C8   C4  D8  E4  E8  E8  D8  C8  D8  E8  D8  C4O2B8O3MLC2C8MN"
  22. 240  PLAY "   D8   e4  e8   e4  f8  g4  g8  g4      g8  g4      D8  d4  e8  MLd2d8MN"                                
  23. 250  PLAY "   G8   A4  F8   A4  F8  A8O4MLC4C8MNO3B8A8  G4      E8  G4  E8  G2"
  24. 260  PLAY "E4 D8   C4  C8   C4  D8  E4  E8  E8  D8  C8  D8  E8  D8  C4O2B8O3MLC2C8MN"
  25. 270  GOSUB 620
  26. 280  PLAY "T250O3mf"
  27. 290  FOR I = 1 TO 100
  28. 300  DELAY = DELAY + 1
  29. 310  NEXT I
  30. 320  LOCATE 1
  31. 330  PRINT "I'm a RAMBLIN' WRECK from GEORGIA TECH and a helluva engineer" SPC(17) " "
  32. 340  PLAY "E4 D8   C4  C8   C4  D8  E4  E8  E8  D8  C8  D8  E8  D8  C4O2B8O3MLC2C8MN"
  33. 350  LOCATE 3
  34. 360  PRINT "A helluva, helluva, helluva, helluva, helluva engineer" SPC(24) " "
  35. 370  PLAY "   D8   E4  E8   E4  F8  G4  G8  G4      G8  G4      D8  D4  E8  MLD2D8MN"
  36. 380  LOCATE 5
  37. 390  PRINT "Like all the jolly fellows, I drink my whiskey clear" SPC(26) " "
  38. 400  PLAY "   G8   A4  F8   A4  F8  A8O4MLC4C8MNO3B8A8  G4      E8  G4  E8  G2"
  39. 410  LOCATE 7
  40. 420  PRINT "I'm a RAMBLIN' WRECK from GEORGIA TECH and a helluva engineer" SPC(17) " "
  41. 430  PLAY "E4 D8   C4  C8   C4  D8  E4  E8  E8  D8  C8  D8  E8  D8  C4O2B8O3MLC2C8MN"
  42. 440  PLAY "T255O4mb"
  43. 450  PLAY "E4 D8   C4  C8   C4  D8  E4  E8  E8  D8  C8  D8  E8  D8  C4O3B8O4MLC2C8MN"
  44. 460  GOSUB 1480
  45. 470  PLAY "   D8   E4  E8   E4  F8  G4  G8  G4      G8  G4      D8  D4  E8  MLD2D8MN"
  46. 480  GOSUB 1530
  47. 490  PLAY "   G8   A4  F8   A4  F8  A8O5MLC4C8MNO4B8A8  G4      E8  G4  E8  G2"
  48. 500  PLAY "A8 B8O5ML C4  C8O4 A4  A8G4  G8  E4  E8MNG8  A8  G8  F4  D8      C
  49. 510  CLS
  50. 520  FOR J = 1 TO 7
  51. 530  LOCATE J + 8,29
  52. 540  PRINT LEFT$(H$(J),15) Y$(J)
  53. 550  NEXT J
  54. 560  THWG$ = "To hell with Georgia!  To hell with Georgia!  To hell with Georgia!  To hell with Georgia!  To hell with Georgia!  To hell with Georgia!  To hell with Georgia!  To hell with Georgia!!"
  55. 570  LOCATE 1,1
  56. 580  FOR J = 1 TO 23
  57. 590  PRINT MID$(THWG$, 70 - 3*J + 10*(INT(J/2)), 79)
  58. 600  NEXT J
  59. 610  GOTO 1580
  60. 620  CLS
  61. 630  FOR J = 1 TO 7
  62. 640  LOCATE J
  63. 650  PRINT BAR$
  64. 660  NEXT J
  65. 670  FOR J = 9 TO 15
  66. 680  LOCATE J
  67. 690  PRINT BAR$
  68. 700  NEXT J
  69. 710  FOR J = 17 TO 23
  70. 720  LOCATE J
  71. 730  PRINT BAR$
  72. 740  NEXT J
  73. 750  RETURN
  74. 760  T$(1) = SPACE$(7)
  75. 770  T$(2) = SPACE$(7)
  76. 780  T$(3) = B3$ + " " + B3$
  77. 790  T$(4) = " " + B1$ + "  " + B1$ + " " + B1$
  78. 800  T$(5) = " " + B1$ + "  " + B3$
  79. 810  T$(6) = SPACE$(7)
  80. 820  T$(7) = SPACE$(7)
  81. 830  H$(1) = B2$ + S2$ + B2$ + S2$ + B6$ + S2$ + B2$ + S5$ + B2$ + S3$
  82. 840  H$(2) = B2$ + S2$ + B2$ + S2$ + B2$ + S6$ + B2$ + S5$ + B2$ + S3$
  83. 850  H$(3) = B2$ + S2$ + B2$ + S2$ + B2$ + S6$ + B2$ + S5$ + B2$ + S3$
  84. 860  H$(4) = B6$ + S2$ + B4$ + S4$ + B2$ + S5$ + B2$ + S3$
  85. 870  H$(5) = B2$ + S2$ + B2$ + S2$ + B2$ + S6$ + B2$ + S5$ + B2$ + S3$
  86. 880  H$(6) = B2$ + S2$ + B2$ + S2$ + B2$ + S6$ + B2$ + S5$ + B2$ + S3$
  87. 890  H$(7) = B2$ + S2$ + B2$ + S2$ + B6$ + S2$ + B5$ + S2$ + B5$
  88. 900  W$(1) = SPACE$(21)
  89. 910  W$(2) = SPACE$(21)
  90. 920  W$(3) = B2$ + S5$ + B2$ + S1$ + B3$ + S1$ + B3$ + S1$ + B1$ + S1$ + B1$
  91. 930  W$(4) = S1$ + B2$ + S1$ + B1$ + S1$ + B2$ + S3$ + B1$ + S3$ + B1$ +S2$+B3$
  92. 940  W$(5) = S2$ +B2$ + S1$ + B2$ + S3$ +B3$ + S2$ +B1$ +S2$ +B1$ +S1$ +B1$
  93. 950  W$(6) = SPACE$(21)
  94. 960  W$(7) = SPACE$(21)
  95. 970  'Letter subroutine
  96. 980  G$(1) = B6$+S2$
  97. 990  E$(1) = B6$+S2$
  98. 1000  O$(1) = B6$+S2$
  99. 1010  R$(1) = B6$+S2$
  100. 1020  I$(1) = B4$+S2$
  101. 1030  A$(1) = B6$+S2$
  102. 1040  Y$(1) = B2$ + S4$ +B2$
  103. 1050  G$(2) = B2$+S2$+B2$+S2$
  104. 1060  E$(2) = B2$+S6$
  105. 1070  O$(2) = B2$+S2$+B2$+S2$
  106. 1080  R$(2) = B2$+S2$+B2$+S2$
  107. 1090  I$(2) = S1$+B2$+S3$
  108. 1100  A$(2) = B2$+S2$+B2$+S2$
  109. 1110  Y$(2) = S1$ + B2$ + S2$ + B2$
  110. 1120  G$(3) = B2$+S6$
  111. 1130  E$(3) = B2$+S6$
  112. 1140  O$(3) = B2$+S2$+B2$+S2$
  113. 1150  R$(3) = B2$+S2$+B2$+S2$
  114. 1160  I$(3) = S1$+B2$+S3$
  115. 1170  A$(3) = B2$+S2$+B2$+S2$
  116. 1180  Y$(3) = S2$ + B4$
  117. 1190  G$(4) = B2$+S6$
  118. 1200  E$(4) = B4$+S4$
  119. 1210  O$(4) = B2$+S2$+B2$+S2$
  120. 1220  R$(4) = B6$+S2$
  121. 1230  I$(4) = S1$+B2$+S3$
  122. 1240  A$(4) = B6$+S2$
  123. 1250  Y$(4) = S3$ + B2$
  124. 1260  G$(5) = B2$+S1$+B3$+S2$
  125. 1270  E$(5) = B2$+S6$
  126. 1280  O$(5) = B2$+S2$+B2$+S2$
  127. 1290  R$(5) = B2$+S1$+B2$+S3$
  128. 1300  I$(5) = S1$+B2$+S3$
  129. 1310  A$(5) = B2$+S2$+B2$+S2$
  130. 1320  Y$(5) = S3$ + B2$
  131. 1330  G$(6) = B2$+S2$+B2$+S2$
  132. 1340  E$(6) = B2$+S6$
  133. 1350  O$(6) = B2$+S2$+B2$+S2$
  134. 1360  R$(6) = B2$+S2$+B2$+S2$
  135. 1370  I$(6) = S1$+B2$+S3$
  136. 1380  A$(6) = B2$+S2$+B2$+S2$
  137. 1390  Y$(6) = S3$ + B2$
  138. 1400  G$(7) = B6$+S2$
  139. 1410  E$(7) = B6$+S2$
  140. 1420  O$(7) = B6$+S2$
  141. 1430  R$(7) = B2$+S3$+B1$+S2$
  142. 1440  I$(7) = B4$+S2$
  143. 1450  A$(7) = B2$+S2$+B2$+S2$
  144. 1460  Y$(7) = S3$ + B2$
  145. 1470  RETURN
  146. 1480  FOR J = 1 TO 7
  147. 1490  LOCATE J + 8
  148. 1500  PRINT T$(J) SPC(10) H$(J) SPC(5) W$(J) SPC(50) " "
  149. 1510  NEXT J
  150. 1520  RETURN
  151. 1530  FOR J = 1 TO 7
  152. 1540  LOCATE J + 16
  153. 1550  PRINT SPC(14) G$(J) E$(J) O$(J) R$(J) G$(J) I$(J) A$(J) SPC(5) S6$
  154. 1560  NEXT J
  155. 1570  RETURN
  156. 1580  CLS:SYSTEM
  157.